home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / S-Sh / Scriptstack.sit / scriptsStack.a / scriptsStack.a / card_7405.txt < prev    next >
Encoding:
Text File  |  1988-01-07  |  702 b   |  31 lines
  1. -- card: 7405 from stack: in.a
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2689
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 24
  9. ----- text -----
  10. convert to lower case
  11.  
  12. -- part contents for background part 26
  13. ----- text -----
  14. on convertToLower
  15.   ask "convert what to lower case?" with "card field 1"
  16.   put selection into temp
  17.   repeat with x=1 to the length of temp
  18.     put the charToNum of char x of temp into newtemp
  19.     if newtemp >=56 and newtemp <=90 then
  20.       put newtemp+32 into newtemp
  21.       put the numToChar of newtemp into char x of temp
  22.     end if
  23.   end repeat
  24.   put temp into selection
  25.   
  26. end convertToLower
  27.  
  28.  
  29. -- part contents for background part 39
  30. ----- text -----
  31. procedure